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1 1 MODULE ACPCNTRL ( 
¢ § LANGUAGE COL 13536) - 
IDENT = *V04-000" 
& 4 d= 
‘ O06 BEGIN 
' 
8 mH leneneeeeeeaecentensreceenecnecererreneerererrrterenenenerentrneereneneteens 
Mil = 
10 10 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
11 011 '® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
\¢ \¢ i ALL RIGHTS RESERVED. a 
: e 
14 Bate '® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
15 15 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
18 bo19 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 1 't COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
18 1 '® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
1B B * TRANSFERRED. * 
'® * 
1 0 '® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
¢ 00 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT © 
Z . CORPORATION. . 
5 ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
$$ . SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ~ 
: 
; | anenhtebpamniintemuninieniniatadunieininniaddieaiaaanndanNnshenanediinin 
0 
5 
6 
7 
& 
9 
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. ABSTRACT: | 
! This module implements the ACP control I/0 function. 

3 005 ENVIRONMENT : 

41 004 i STARLET operating system, including privileged system services 

4 004 : and internal exe routines. 

4 004 : 

4G ape leo 

45 04 ! 

46 004 : 

rH 944 AUTHOR: Andrew C. Goldstein, CREATION DATE: 23-May-1979 17:07 | 

49 0949 MODIFIED BY: 

24 0051 i v03-004 STJ0310 Steven T. Jeffreys 11-Jun-1982 

3g 0988 Addd REMOUNT control function handler. It's a NOP. 

54 054 1! vO3~003 LMP0026 L. Mark Pilant, 17-May-1982 14:15 

55 55 : Rearrange some code sequences to avoid the possibility of 

29 opes taking a page fault at an elevated IPL. 
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16-Sep-1984 90:36:39 AX-11 Bliss 


14-Sep-1 FITA.SRCJAC 
v03-002 ACG0285 Andrew C. Goldstein, 12-Apr-1982 17:26 
Fix cathedral window logic for empty headers 
vO3-001 LMPOO18 L. Mark Pilant 31-Mar-1982 12:00 


Modify to use a local of the window complete flag. Also 
fix som problems with remapping windows that don‘t map the 
beginning of the file. 


v02-001 LMPO000S L. Mark Pilant, 29-Dec-1981 10:36 
Add routine to remap a file into multiple windows. This 
routine was taken, with minor modifications, from F11BACP. 


*SYSSLIBRARY:L g,t52": 
*SRCS:FCPDEF .B32'; 


of control function codes recognized by this module. 


MIN_CNTRLFUNC = MINU ( K_VOL, 
K-VOL, 


_LOC 
UNL 
NA_QUOTA, 


PARMARKHAHHOASA 


LOCK_VOL, 
UNLK- VOL, 
ENA_QUOTA, 


F 
F 
F 
F 
F 
F 
: 
F 
F 
) 
MAX_CNTRLFUNC = MAXU (F 
F 
F 
: 
F 
F 
F 
F 
) 


ROUTINE 
ACPCONTROL 
MARK CATHEDRAL : NOVALUE, 
ADD_QINDOW : N 


REMOVE WINDOW =: NOVALUE. 
LAST_SEGMENT : NOVALUE; 


' ACPCONTROL function routine 
! flag window as being cathedral 
' add a window to the queue 


o 
< 
> 
- 
c 
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! set the window as the last segmen 


' remove and deallocate a window segment 


e 4 
ACPCNTRL 16-Sep-1984 00:46:59 AX-11 Bliss-32 V4.0-74 
754-000 12-80-1382 99:58:33 LP TTA. SRCJACPCNTRL B32: 
GLOBAL ROUTINE ACPCONTROL = 
'ee 
' 
i FUNCTIONAL DESCRIPTION: 


This routine implements the ACP control 1/0 function. It sets up 
context and dispatches on the control function. 


i CALLING SEQUENCE: 
ACPCONTROL () 


i INPUT PARAMETERS: 
NONE 
i IMPLICIT INPUTS: 


1 

' 

' 

' 

! 

1 

' 

' 

! 

' 

' 

! 

: CLEANUP_FLAGS: cleanup action and status flags 
IO_PACKET: address of 1/0 request packet 
' 
! 
' 
! 
! 
! 
' 
' 
! 
' 
' 
! 
! 


PROPOR 2 S 


i OUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 


assorted status values 


i SIDE EFFECTS: 
control function executed 


: REF BBLOCK, ! address of user FIB ; 
ABD : REF BBLOCK, ! address of buffer descriptor — 
STATUS; ! return status from called routine 


EXTERNAL 


VECTOR, 


ITVE cleanup action and status flags 
EF BBLOCK; 


address of caller's I/0 packe 


PACKET 
EXTERNAL ROUTINE 
REMAP_FILE : NOVALUE; 


CLEANUP_FLAGS : B 
10_PACK : R 
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get user FIB . 
remap the file into segmented windows 
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up control block pointers. If there is no complex buffer packet, then 
is an 1/0 kill call, which is a NOP. 


e 
IF NOT .1O_PACKETCIRPSV_COMPLX] THEN RETURN 1; 


D = .BBLOCK (.10 PACKETCIRPSL_SVAPTE], AIBSL_DESCRIPT); 
FIB = GET_FIB (.ABD); 
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; Routine Size: 


Tes 


IF 
THEN 


UePwrn— 


3 
93 3 iF 
94 
95 


ERRRRLRLELLLELRLEK 


2A 


58 bytes, 


-BBLOCK 


-BBLOCK 


RETURN 


N RETURN 


CJO_PACKETCIRPSU_FUNC) 


C10 PACKETCIRPSW_FUNC] 


of 1OtF easy CNTRLFUNC) EQL 0 


IF 
thew RETURN 1 
Dispatch on the control function. 


RETURN 1; 


39 1 END; 


0000G CF 


Routine Base: 


. 10$V set 


DMOUNT is a NOP for ODS-1 


- 10$V_REMOUNT) 
“! REMOUNT is a NOP for ODS-1 


! 0 is a NOP 


-FIBCFIBSW_CNTRLFUNC] EQL FIBSC_REMAP THEN REMAP_FILE (); 


' end of routine ACPCONTROL 


0000 00000 
0000G CF D0 44 
03 €1 0000 
2c 34 DO 0000C 
0 dD 00010 
01 FB Bots 
0000G CF DO 0001 
¢ EO 0001C 
03 €0 00021 
16 AO 83 00026 
0B 13 00029 
16 AQ 61 00028 
05 12 4 tH 
00 FB 000351 
01 00 00036 
04 00039 


SCODES + 0000 


1$: 


-TITLE 
- IDENT 


ACPCNTRL 
\v04-000\ 


CLEANUP FLAGS, IO_PACKET 
GET_FIB> REMAP_FICE 


SCODES,NOWRT,2 
ACPCONTROL, Ds nothing 
I10_PACKET 


#37 a5 CROs. 1$ 
a44(R0), ABD 


(FIB), #16 
REMAP _F ILE 
RO 
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GLOBAL ROUTINE REMAP_FILE : NOVALUE = 


+ 


! FUNCTIONAL DESCRIPTION: 


This routine is gatted when it becomes necessary fo guarantee that 
the qntire file is mapped. This is done by creating, if necessary, 
multiple WCB's and Linking them together. 


CALLING SEQUENCE: 
REMAP_FILE () 


INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 

PRIMARY_FCB: address of the current primary FCB 
CURRENT_WINDOW: address of the current primary window segment 


OUTPUT PARAMETERS: 
none 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
none 


SIDE EFFECTS: 
As many WCB's as are needed are allocated and Linked to provide 
mapping for the extire file. Any errors are noted for the user. 


BEGIN 
LABEL i 
HEADER_CHECK, ! Loop to check window/header correspondence 
, WINDOW_ TRUNCATE; ! Loop to match up Last FCB with a window 
9 2 LOCAL : 
: ? “rye eta ner pth eddrosy of pre neat window segment 
» | the original window 
$$ § NEW_ WINDOW REF BBLOCK, ! the neu window list 
31 CB REF BBLOCK, ! address of the current FCB 
3 4 LAST_FCB REF BBLOCK, ! address of the Last FC 
3 5 HEADER REF BBLOCK, ! address of the header owned by an FCB 
$e 6 MAP_AREA REF BBLOCK, ! address of the map area in the header 
5 7 HEADER_VBN, ' current VBN in the header 
8 HEADER_COUNT, ' retrieval pointer count 
3 8 NEADERCPOINTER : REF BBLOCK, { pointer into map area, os 
39 1 NEXT SEGMENT : REF BBLOCK, ! address of the segment after the next 
40 ¢ WINDOW POINTER : REF BBLOCK, ! address of the window map area 
41 WINDOW _VBN, ' current VBN in the window 
42 4 WINDOW_ENDVBN; ! ending VBN of the window 
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EXTERNAL 
CLEANUP_FLAGS BITVECTOR, ! cleanup action and status flags 
PR s REF BBLOCK, ! primary FCB for the fil 
CURRENT_WINDOW REF BBLOCK; ! primary window for the file 
EXTERNAL ROUTINE 
DEALLOCATE deallocate a block of memory 
READ_ EADER, read a file header specified by FCB 
TURN_WINDOW map the file header specified 


MARK-COMPLETE : NOVALUE, 
MARK~ INCOMPLETE; 


Make sure that a file is there. 


mark all windows as complet 


IF .CURRENT_WINDOW EQL 0 THEN ERR_EXIT (SSS$_FILNOTACC); 
Make sure it is actually necessary to do the remap operation. 


IF . CURRENT _WINDOWCWCBSV_COMPLETE) 
AND .CURRENT_WINDOWCWCBS9_CATHEDRAL] 
THEN RETURN; 


If there is a file accessed, try to build ony necessary window segments. 
There are three cases which can arise in trying to remap the entire file. 
1) The window completely maps the file but it was not required to; in this 
case it is simply necessary to set WCBSV_CATHEDRAL. 2) The w’ndow was 
previously complete, but is no longer due to an extension of the file; in 
this case is is necessary to add the new window pointers to the last window 
segment (which may be the primary window). 3) The file was never completely 
apres. In this case there are no special special conditions to consider. 
Al hat is necessary is to traverse the Linked FCB's to build the window 
segments. 


ee ee ee ee 


! First case; WCBSV_COMPLETE is set. Simply set WCBSV_CATHEDRAL and return. 
FE RE MUD OEIY COMPLETED AND NOT .CURRENT_WINDOWCWCBSV_CATHEDRALJ 


BEGIN 

KERNEL_CALL (MARK_CATHEDRAL, .CURRENT_WINDOW); 

RETURN; 

END; 
! Second case; the file was previously mapped complete. Locate the FCB which 
corresponds to the Last window segment and start adding from there. 
fF CURRENT SINDOUCUCEOY CATHEDRAL J 


BEGIN 
WINDOW_SEGMENT = .CURRENT_WINDOW; 
FCB = 7PRIMARY_FCB; 


ACP( 


< 


ete 
mark all window segments as incomplete 
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J 4 
ACPCNTRL 1p=se0"12 4 00:46:59 X-11 Bliss-32 V4.0-74 Page 7 
v045000 ae Ti 99:5 718 ar TTALSRC ait CPCNTRL.B32; . (3) 
; 300 $13 UNTIL .WINDOW SEGMENT CWCBSL kiN) EQL 0 
: 301 61 DO WINDOW SEGMEN WINDOW” SEGMENTCWCBSL =LINK Kj; 
; 4 ote NEW_WINDOG = WINDOW. "SEGMENT; ' remember current end point 
; 304 616 WINDOW_ENDVBN = .WINDOW SEGMENT CWCBSL STVBNI; 
; 305 61 WINDOW-POINTER = .WINDO® S WCBSC_MAP; 
; Be 918 ? BERT TOM -WINDOW_ SEGMENT ueBSu. -NMAP) TO 1 DO 
: 308 620 4 WINDOW_ENDVBN = .WINDOW ENDVBN + , WINDOW POINTERCWCB$W_COUNT); 
; 309 0621 4 WINDOW-POINTER = .WINDOQ_POINTER + 6; 
3 19 Be § ; END; 
; \¢ be 4 4 HEADER CHECK: BEGIN 
3; 31 0625 4 LAST_FCB = .FCB; ! im case only 1 FCB 
: 314 0626 4 DO 
3; 315 0627 5 BEGIN 
; 316 0628 2 IF .FCBCFCBS$L_STVBN] GTR .WINDOW_ENDVBN THEN EXITLOOP 0; 
; 317 0629 LAST_FCB = .FCB; 
:; 318 0630 5 FCB = .FCBCFCBSL_EXFCB); 
; 319 0631 5 END 
; 320 tt 4 UNTIL .FCB EQL 0; 
: 321 0633 4 FCB = .LAST_ FCB; 
; 3¢ 0634 4 HEADER = READ_HEADER (0, .FCB); 
3 0635 4 HEADER_VBN = -FCBCFCBSL.STVBN: 
3 4 0636 4 MAP_AREA = sHEADER, * a -HEADERL CFH1$B -MPOFFSETI#2; 
3; 325 0637 4 HEADER POINTER = + FMISC-P 
; 326 0638 4 .WIRDOW_ENDVBN- FOL ANEADER _VBN THEN LEAVE HEADER_CHECK; 
$ 356 0640 4 DECR J FROM .MAP_AREALFM1$B_INUSE] / 2 TO 1 
: 329 0641 4 DO 
3 ee! O64¢ 5 BEGIN 
3; 331 0643 5 HEADER_COUNT = .HEADER_POINTERCFM1$B_COUNT) + 1; ! get count | 
3 332 0644 5 HEADER-LBN = .HEADER PoINTeERt Fats LOWLBN); ! Tow LBN 
; 333 0645 5 HEADER-LBN<16,8> = .AEADER NTERCERISB. "Hi GHLBN); i and high LBN | 
; «334 0646 5 HEADER™POINTER = -HEAD ER POINTER ! update the map pointer | 
3 339 0647 5 F .WIRDOW ENDVBN G ENEADE VBN 
3 320 0648 5 AND .WINDOO_E ENDVBN. Ls" HEADER. VBN + .HEADER_COUNT 
: 337 0649 5 THEN LEAVE READER, CHECK 
; 338 0650 5 HEADER_VBN = AHEADER ven + ,HEADER_COUNT; 
; 339 0651 4 END 
: 9 065¢ 4 FCB = i carr cast _EXFCB); 
3 Se 0654 4 ! The Last VBN sages does not have a corresponding FCB. In this case it 
: ri $23 ? penecessery to locate the window segment that corresponds to the last 
3 5 57 4! 
3 6 0658 4 
3; 347 59 4 WINDOW_SEGMENT = .CURRENT_WINDOW; 
; 348 0 5 WINDOW- TRUNCATE: BEGIN 
: 349 61 5 dO 
: 350 666 6 BEGIN 
3; «351 6 WINDOW _VBN = .WINDOW SEGRENTCUCBSL STVBN 
6 6 IF .WIRDOW VBN LEQ READER THER LEAVE “WINDOW. TRUNCATE; 
mm. 5 6 WINDOW_POIRTER = .WIND SEGREN ewe M 
3 32 0866 § DECR 2 TRON -WINDOW_ SEGRENT UcBsw _NMAP] TO 1 D0 
3; 356 0668 7 WINDOW_VBN = .WINDOW_VBN + .WINDOW POINTERCWCBSW_COUNT); 
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; $68 7 WINDOW POINTER = .WINDOW POINTER + 6; 

3 ety 11; WIRDOW_VEN GEQ .HEADER_VBN THEN LEAVE WINDOW_TRUNCATE; 

; 0676 6 WINDOW SEGMENT = .WINDOW_SEGMENTCWCBSL_LINK); 

; bore UNTIL .WINDOW_SEGMENT EQL 0; 

3 bees 2 BUG_CHECK (WCBFCBMNG, FATAL ‘WCB/FCB correspondence broken'); 

; bees ? END; ! end of block WINDOW_ TRUNCATE 

; 680 4 ! The window which corresponds to the last FCB has been found. Truncate the 
; ee 2 } current window and remove any succeeding window segments. 

; «371 des 4 

3 ST 0684 4 FCB = .LAST FCB; 

3 of 0685 4 NEXT SEGMENT = .WINDOW SEGMENTCWCBSL_LINK); ; 
; 374 0686 4 KERNEL_CALL (LAST SEGMENT, . WINDOW SEGMENTS; ! current segment is now the end 
; 375 0687 4 UNTIL TNEXT_SEGMERT EQL 0 

; 376 0688 4 dO 

: 377 0689 5 BEGIN 

:; 378 0690 5 LOCAL JUNK_SEGMENT : REF BBLOCK; ! address of block to deallocate 
: 79 0691 5 JUNK_SEGMENT = .NEXT_SECMENT; 

; 380 0692 5 NEXT-SEGMENT = .NEXT~SEGMENTLWCBSL_LINK); 

; 381 0693 5 KERNEL_CALL (REMOVE_QINDOW, .JUNK_SEGMENT); 

; $66 0694 4 END; 

; 38 0695 4 

; 384 0696 3 END; ' end of block HEADER_CHECK 

; 385 0697 3 5 P 

; 386 0698 3 ! Map any additional file headers or rebuild the Last window if cleaning up 
s Ser 0699 3 ! from an extend operation. 

F 3B8 0709 ! 

: 389 0701 

; 390 145 WHILE 1 DO 

; #391 0703 4 BEGIN 

: 4 07046 4 KERNEL CALL (TURN WINDOW, .WINDOW_ SEGMENT, .HEADER, 1, .FCBCFCBSL_STVBN)); 
; 39 0705 4 IF_.CLEANUP_FLAGSCCLF_ INCOMPLETE] 

; 94 o708 4 THEN 

: 395 0707 5 GIN 

; 96 0708 5 KERNEL_CALL (MARK_INCOMPLETE, .CURRENT_WINDOW); 

; 397 0709 5 ERR_EXIT (SS$_EXBYTLM); 

3 $05 0710 4 D; 

: 399 0711 4 IF_.FCBLFCBSL_EXF CB) Fat 0 THEN EXITLOOP 0; 

: 400 Oris 4 L .WINDOW SEGMENTCWCBSL_LINK] EQL 0 

; 401 71 4 DO WINDOW SEGMENT = gg OO, OMT LRCEM, I. FE 2s 

; 40 0714 4 FCB = .FCBCFCBSL_EXFCB); 

: 40 0715 4 HEADER = READ_HEADER (0, .FCB); 

: 404 0716 3 

; 405 0717 

; 606 bois WINDOW_SEGMENT = .NEW_WINDOWCWCBSL_LINK); 

; 407 719 UNTIL .WINDOW_SEGMENT EQL 0 

: 408 0720 dO 

3; 409 721 4 BEGIN 

; 410 7 § 4 KERNEL_CALL (ADD_WINDOW, .WINDOW SEGMENT, .PRIMARY_FCBCFCBSL_WLBLJ); 
: 411 723 4 WINDOW-SEGMENT =~.WINDOW_SEGMENTCWCBSL_LINK); 

3 cig bfSe ; END; 

; «641 725 


lal a eae a i eter 


ACPCNTRL 1b-se -1984 00:46:59 AX-11 Bliss-32 V4.0-74 Page 9 
VO6s000 1o28eb= 1986 13:39:18 ERTIASREIARPENTAL B32, 2 
> 416 7 § KERNEL_CALL (MARK_COMPLETE, .CURRENT_WINDOW); 

fe Mee Bae 

; “19 7 $ 

: 418 750 ! Third case; the file was never completely mapped. For this case no special 

; 419 731 ' precautions need to be taken. Simp Y loop aes all the FCB's associated 

$ : ¢ } with the file, and create as many window segments as necessary. 

s & ¢ 7 

; 4 735 2 FCB = .PRIMARY_FCB; 

: 424 O736 ¢ WINDOW. SEGMENT = . CURRENT_WINDOW; 

; : 2 oF i KERNEL_CALL (MARK_CATHEDRAL, .WINDOW SEGMENT); !build cathedral windows 

; 427 739 ' Now build the new windows using the original primary window as the base 

; 428 0740 ! for the new window segments. This is necessary to aviod having to mung 

; 429 0741 ! the primary window address which may reside in several places. It also 

3; 6 1544 ! means that if an error occurs, the new window created will be valid, but 

: 431 074 ! it will not be the same as it started out. 

3 $3 0744 ! 

>; 43 0745 

3 tze o7e8 UNTIL .FCB EQL 0 

; 435 074 DO 

: 436 0748 BEGIN 

3; 437 0749 HEADER = READ_HEADER (0, .FCB); 

: 438 0750 UNTIL .WINDOW-SEGMENTCWCBSL_LINK] EQL 0 

3; 439 0751 DO WINDOW SEGMENT = .WINDOW- SEGMENTCWCBSL_LINK]; 

: 440 8736 KERNEL_CACL (TURN WINDOW .QINDOW_ SEGMENT? «HEADER, 1, .FCBCFCBSL_STVBNJ); 

> 441 075 IF .CLEANUP_FLAGSCCLF_INCOMPLETEJ 

; 44 0754 THEN 

: 44 0755 4 BEGIN 

; 4446 0756 4 KERNEL_CALL (MARK_INCOMPLETE, .CURRENT_WINDOW) ; 

: 445 0757 4 ERR_EXIT (SS$_EXBYTLM); 

: 446 0758 3 END; 
> 447 0759 3 FCB = .FCBCFCBSL_EXFCBI; 

; 448 0760 END; 

: 449 0761 

: 450 thet WINDOW_SEGMENT = .CURRENT_WINDOWCWCBSL_LINK]; 

: 451 076 UNTIL .WINDOW_SEGMENT EQL 0 

3 $26 0764 dO 

; «45 0765 BEGIN 

: 454 0766 KERNEL_CALL (ADD_WINDOW, .WINDOW SEGMENT, .PRIMARY_FCBCFCBSL_WLBLJ); 
> 455 0767 WINDOW-SEGMENT =". WINDOW SEGMENTCWCBSL_LINK); 

; 456 0768 END; 

3 457 o768 

; 458 770 KERNEL_CALL (MARK_COMPLETE, .CURRENT_WINDOW); 

: 459 0771 RETURN; 

; 460 tae : 
3; 461 0775 1 END; ! end of routine REMAP_FILE | 


XTRN PRIMARY FCB, CURRENT WINDOW 

XTRN DEALLOCATE, READ HEADER 
TURN_WINDOW, MARR_COMPLETE 

XTRN MARK" INCOMPLETE 

XTRN SYSSCMKRNL, BUGS_WCBFCBMNG 


mM 4 | 
ACPCNTRL 16-Sep-1984 00:46:59 AX-11 Bliss-32 V4.0-74 Pp 1 ALLO 
VOe 000 1o735p-198e 93:38:78 EMT TAlsRcdREpcarne :o35, age v04- 
L © 00000 ENTRY REMAP FILE, Save R2,R3,R4,R5,R6,R7,RB,R9,- ; 0498 
5E 04 ¢ 0002 SUBL2 #4, SP : 
00006 CF 05 0 TSTL.  CURRENT_WINDOW + 0571) 
5 12 00009 BNE : 
OOAC 8F BF 0 CHMU = #172 : 

50 00006 CF pO b00N0 18 MOVL  CURRENT_WINDOW, RO : 0576. 
1D 0B AO 05 E1 8015 BBC gr 71(RO), $3 : 
01 0B a0 6 F} Oth BBC #6, 11(RO), 2$ : 0577 
12 0B AO 5 €1 00020 2s: BBC #5, 11(RO), 3$ + 0595) 
0D 0B AO o8 £0 $8 g BBS #6, 11(RO). 33 : 

50 DD O002A PUSHL RO > 0598 | 

gi DD 0002C PUSHL #1 : | 
E DD 0002E PUSHL SP : 
0000v cf i 900 0 PUSHAB MARK_CATHEDRAL : 
0224 31 00034 BRW 36$ : 
50 00006 CF DO 00037 3$ MOVL § CURRENT_WINDOW, RO + 0606 | 
03 0B AO 06 £0 0003¢ BBS #6, 11(RO), 4$ : 
O16F 31 00041 BRW : 

52 50 DO 00044 4$ MOVL RO, WINDOW. SEGMENT + 0609 | 

55 00006 CF DO 00047 MOVL PRIMARY _FCB, FCB + 0610 

20 Ke ds g094¢ 5$ Ist 32 (WINDOW_ SEGMENT) : 0612 

52 20 Ae dd 00051 MOVL § 32(WINDOW_SEGMENT), WINDOW_SEGMENT + 0613 

F5 11 00055 BRB 5$ : 

6£ 52 DO 00057 6$ MOVL § WINDOW_SEGMENT, NEW WINDOW ; 0614 

56 2c A2 DO 0005A MOVL 44 (WINDOW SEGMENT) , WINDOW_ENDVBN > 0616. 

54 0 A2 9 00055 MOV 2), WINDOW POINT ; 0617 | 

50 16 A2 3C 0006 MOVZWL 22(WINDOW_SEGMENT), J : 0618 

50 D6 00066 : | 
09 11 00068 BRB 8$ : 

51 84 3C 9006A 7$: MOVZWL (WINDOW POINTER)+, R1 > 0620. 

oY 51 CO 0006D ADDL2 1, WINDOW ENDVBN : 

54 04 C0 90070 ADDL? #4, WINDOW-POINTER > 0621 

F4 50 F5 00073 8$: SOBGTIR J, 7$ > 0618 

SA 55 pO 00076 MOVL CB, LAST FCB > 0625 

56 2c «AS «D1 00079 98: CMPL  44(FCB), &’NDOW_ENDVBN > 0628 

09 14 90070 BGTR 10$ ; 

5A 55 00 0007F MOVL FCB, LAST_FCB : 0629 

55 0c AS 00 00082 MOVL  12(FCB), FCB > 0630 

F} 12 0086 BNEQ 9$ : 063¢ 
55 3A DO 00088 10$:  MOVL LAST_FCB, FCB > 0633 | 
5 DD 00088 PUSHL FCB : 0634 | 
7E 04 0008D CLRL. = = (SP) ; 
00006 CF 02 FB 0008F CALLS 2, READ_HEADER : 

58 50 0 000% MOVE” RO. HEADER | 

5 3¢ AS 00 00097 MOVL  44(FCB), HEADER_VBN > 0635 

50 1 AB OA 0098 MOVZBL 1 (HEADER) ; 0636 | 

51 6840 3 OF MOVAW (HEADER)CROJ. MAP AREA ; | 

30 OA AT 9F QO0AS MOVAB 10(R1), HEADER_POINTER ; 0637 | 

5 36 D1 OO0A CMPL § WINDOW. ENDVBN, "HEADER_VBN : 0638 | 

: 12 0 AA BNEQ 118 : 

0096 31 OOOAC BRW 20s : 

59 08 Al OA OOAF 118: MOV ZBL (MAP_AREA), R9 > 0640 | 
59 02 C6 000B3 DIVL2. #2, R : 
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59 yaxet1 Bliss-32 V4.0-74 
:18 F11A.SRCJACPCNTRL B32; 
148 

1(HEADER_POINTER), HEADER_COUNT 
HEADER_ COUNT 

2(HEADER_ POINTER), HEADER LBN 
(HEADER_POINTER)+, #16, ane. HEADER_LBN 
WINDOW, ENDVBN, HEADER_V 
HEADER_COUNT, HEADER_VBN, R1 
WINDOW_EN DVBN, R1 

HEADER. COUNT, HEADER_VBN 

J, 1287 

13(FCB), FCB 

CURRENT WINDOW WINDOW SEGMENT 
44 (WINDOW SEGMENT), WINDOW_V 
ae vBR, GPADER *VBN 

48(R2), WINDOW POINTER 

22 (WINDOW SEGMENT), 

17$ 

CuINDOW POINTER) +, R6 


INDOW_VBN 
#4, WINDOW-POINTER 
vn VBN; HEADER_VBN 


6$ 
35 uiNoov_SEGHENT), WINDOW_ SEGMENT 


tt cw wens 
2 (WINDOW Oh laa NEXT _SEGMENT 
BiNeou,, SEGMEN 


SP 
LAST_SEGMENT 

a4, aASYSSCIKRWL 

NEXT. SEGMENT 

NEXT SEGMENT, JUNK _SEGMENT 
32(NEXT_S EGMENT) NEXT_SEGMENT 
JUNK KR SEGRE 

Sp 

REMOVE _WINDOW 
44 (FCB) 


#*M<R2,RB8> 
es 


f 
HD RESYSRCHERNL 
ae . 
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20 =A 
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F 

oc 
BB 
0 
60 
03 
0088 
0000G CF 
14 4g 
05 

5E 

0000v CF 
05 
20 «Ae 
dC 

0000G CF 
0000G CF 
52 

01 

SE 

0000v CF 
04 

55 
53 

55 

fs 
56 
20 Ae 

0 

20 s 
2c AS 
4 

0104 F 
SE 
00006 oF 
2 

00006 o 
E 

0000G CF 
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2A14 F 
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( 
$ 
(WINDOW SEGMENT) 
(WINDOW. SEGMENT) , WINDOW_ SEGMENT 
(FCB), FCB 

§ 

, READ_HEADER 

ER 

; WINDOW, RO 
05, NDOW_ SEGMENT 
g 
PRIMARY_FCB, RO 
WINDOW_ SEGMENT 

#2 

SP 

ADD_WINDOW 
#5, @A#SYSSCMKRNL 

32 {WINDOW SEGMENT), WINDOW_ SEGMENT 
PRIMARY_FCB, FCB 


CURRENT-WINDOW, WINDOW SEGMENT 
WINDOW_SEGHENT 


SP 
MARK_CATHEDRAL 
#4, SASYSSCMKRNL 
FCB 
33$ 
FCB 

-(SP) 

#2, READ HEADER 

HEADER 

32 (WINDOW_ SEGMENT) 
2(WINDOW_SEGMENT), WINDOW_SEGMENT 
44 (FCB) 

#*M<R2,R8> 

#4 

SP 

TURN, WINDOW 
#7, GASYSSCMKRNL 

#2, CLEANUP_FLAGS+1, 32$ 

CURRENT WINDOW 


SP 
MARK_ INCOMPLETE 
#4, GASYSSCMKRNL 
#16772 


Page 12. 
’ (3) | 
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3 
0711. 
0712. 
0713 


0714 | 


0715 


5 
1$-sep 1984 :59 =11 Bliss-32 v4.0-742 Page 13 
14-Sep-1984 93: 38: :18 F11A.SRCJACPCNTRL B32; 1 " (3) 
Oc AS D 1f 32$: MOVL 12(FCB), FCB : 0759. 
Ag 0 6 3 BRB 8s > 0746) 
00906 CF D 33$: MOVL RRENT WINDOW, RO : 0762. 
20 AO D 0 A MOVL (RO), “WINDOW. SEGMENT : | 
1F 1 34$: BEQL : 0763) 
00006 CF pd 00 MOVL § PRIMARY_FCB, RO : 0766 
14 AQ 0D 00 PUSHL  20(RO) : | 
52 DD 00 PUSHL prec: : 
g DD 0023A PUSHL  # : 
E DD 0023C PUSHL ; 
0000v CF 9F 00 PUSHAB WIND : 
000000006 of 05 FB 0 4 CALLS” #5," BASYSSCMK : | 
2 20 A2 D 4 MOVL 2(WINDOW_ SEGHENT) , WINDOW_ SEGMENT : 0767 
DF 11 00240 BRB 4$ : 0763 
00006 CF oD 0 Gf 358: PUSHL = CURRENT_WINDOW ; 0770 
g1 DD 0 33 PUSHL #1 : 
E DD 00 5 PUSHL SP : 
00006 CF 9F 00257 PUSHAB MARK_COMPLETE ; 
000000006 9F 04 FB 00 28 368: CALLS #4, 3#SYSSCMKRNL ; 


0773 | 
; Routine Size: 611 bytes, Routine Base: $CODE$S + 003A | 


SRENLSS 
WONOULSWN—O”O 
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POR) et at at ot ot 1 O 


SSSSSSSSSe niin 
0 co 


tk a ed a dd 
DONO UE WO 


ae SOR ee le a a a eo ae TE ee ET TS ene ee 


PPV PVP SPVPVSPV PUSPATI SIT IT 
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CooOOooCoooO 
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5 
16-Sep-1986 00:46:59  VAX=11 BLi 
1ox808- 1382 99:38:73 AAG] Bt 


! The remaining routines must be locked in to the working set as they run 
! at an elevated IPL. 


LOCK CODE; 

ROUTINE MARK_CATHEDRAL (WINDOW) : NOVALUE = 
'e¢ 

ROUTINE DESCRITION: 


This routine is used to mark the specified window as a Cathedral 
window. It must be execured in kernel mode. 


i CALLING SEQUENCE: 
MARK_CATHEDRAL (ARG1) 


INPUT PARAMETERS: 
ARG1: address of the window to mark 


IMPLICIT INPUTS: 
none 


$s- 
ACP 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 

ROUTINE VALUE: 
none 


SIDE EFFECTS: 
none 


WINDOW : REF BBLOCK; ' address of the window to mark 


LOCAL - 
: REF BBLOCK; ' copy of the window address 


P = WINDOW; ! copy the window address 
SET_IPL (IPL$_SYNCH); 

IF NOT .PCWCBSV_COMPLETE) 

THEN 


BEGIN 
Prucest stew) = 1; 
PCWCBSW"NMAP)] = 0; 


PCWCBSV_CATHEDRAL] = 1; ! mark the window 


SET_IPL (0); 
RETURN; 
END; 


Se Ge Se ee tee 
VWn—O 
Uw 


07 


& 58 
-P> Prr-v'! 
No COONS 


; Routine Size: 30 bytes, Routine Base: 


5 
18-Se0-1986 00:46: 


3 Yarra! Bliss-32 ye Oe oee 
1 F11A.SRCJACPCNTRL.B32; 


! end of routine MARK_CATHEDRAL 


.PSECT 
0000 00000 MARK_CATHEDRAL: 
WORD 
04 aC 00 00002 HOVL 
08 DA 00006 MTPR 
05 £0 00009 BS 
01 dO 00006 MOVL 
16 AO B4 0001 CLRW 
40 8F 88 00015 1$ BISB2 
00 DA OOOIA MTPR 
04 0001D ET 


SLOCKEDC1$ + 0000 


SLOCKEDC1$,NOWRT,2 


pe nothing 


a°s> 


ACPCNTRL 
v04=000 


DPUPVPVSVSVSUSVSISISIAISI 
= 


wii & 


AAAAMMAMNMNMNM 
WN —OOONOAVSWN $0 OOnoe 


SSHLSAF 


POPUP PUPP FAA AIAN 


; Routine Size: 


F § 
16-Sep-1984 00:46:59 AX-11 Bliss-32 V4.0-74 
1o-808- 1 3b 99:58:33 F11A.SRCJACPCNTRL.B32; 
3 ! ROUTINE ADD_WINDOW (WINDOW, QUEUVE_HEAD) : NOVALUE = 
§ 1 lee 
40 1! 
*] : FUNCTIONAL DESCRIPTION: 
rk = This routine adds the window specified into the queue specified. This 
rt} : } routine must be called in kernel mode. 
Bae8 1 ' CALLING SEQUENCE: 
¢ : : ADD_WINDOW (ARG1, ARG2) 
rk 1 | INPUT PARAMETERS: 
850 1! ARG1: address of the window sogenent to add 
ett } } ARG2: address of the queue hea 
th 1 ! IMPLICIT INPUTS: 
0854 1! none 
0855 1! 
0856 1 ! OUTPUT PARAMETERS: 
0857 1! none 
0ss8 i! 
0859 1 =! IMPLICIT OUTPUTS: 
0860 1! none 
0861 1! 
pae¢ 1 ! ROUTINE VALUE: 
0865 1! none 
0864 1! 
0865 1 ! SIDE EFFECTS: 
0866 1! none 
0867 1! 
0868 1 !-- 
0869 1 
0870 BEGIN 
0871 
087 MAP 
087 WINDOW : REF BBLOCK, ' address of the window Sognent 
Bate QUEUE _HEAD : REF BBLOCK; ! address of the queue hea 
bare INSQUE (.WINDOW, .QUEUE_HEAD); 
0878 RETURN; 
0879 
0880 1 END; ! end of routinr ADD_WINDOW 
0000 00000 ADD_WINDOW: : 
WORD Save nothin 
08 BC 06 BC OE 00002 INSQUE @WINDOW, Q@QUEUVE_HEAD 
04 00007 RET 


8 bytes, Routine Base: S$LOCKEDC1$ + OOIE 


——— 


5 
ACPCNTRL bese -1984 :46:59 AX-11 Bliss-32 V4.0-742 
y065000 1e-8ep-19 4 90:58:78 LPT TALSRCJACPCNTRL B32 
; ie 1 } ROUTINE REMOVE _WINDOW (WINDOW) : NOVALUE = 
: $74 é 1 te 
3 S79 1! 
: rg 5 : FUNCTIONAL DESCRIPTION: 
: ne : 1 This routine removes the specifed window from the queue. It then 
3 88 1! roceeds to deallocate the window. This routine muse be called in 
; Bi 889 : ernel mode. 
: é 6 91 1 | CALLING SEQUENCE: 
3 S7 b 3 : REMOVE _WINDOW (ARG1) 
; 2 5 894 1 | INPUT PARAMETERS: 
3 Baoe : ARG1: address of the window to remove 
: 588 $899 1 | IMPLICIT INPUTS: 
; 4 +94: : } none 
; 231 0900 1 | OUTPUT PARAMETERS: 
Pe we io 
; 394 0903 1 ' IMPLICIT OUTPUTS: 
oi coy oe ip 
: 597 0906 1 i ROUTINE VALUE: 
: 396 9908 1 | sai 
: 600 0909 1 | SIDE EFFECTS: 
; 601 0910 1! none 
3 oo 0911 #1! 
; 60 o3t¢ 1 !-- 
3; 604 091 1 
a 
> 607 0916 
; 608 091 WINDOW : REF BBLOCK; ' address of the window 
; 609 0918 
: 610 0919 LOCAL 
; ot +4 Y; ! temp storage for queue entry address 
; gi 09 é EXTERNAL ROUTINE ; 
3 ei% +4 ? DEALLOCATE; ! deallocate system dynamic memory 
; 616 $9 5 2 REMQUE (.WINDOW, DUMMY); 
; 61 09 § DEALLOCATE (.WINDOW); 
: 818 0958 5 RETURN 
: 620 929 : 
3 54 09 0 1 END; ! end of routine REMOVE_WINDOW 


0000 00000 REMOVE _WINDOW: . 
«WORD Save nothing 


; 0881. 


aef 


1ESE0-198 09:96:98 YPNGAYRESEEABS M8584? as 
50 04 tr Bi REMQUE @WINDOW, DUMMY £9835. 


00006 CF CALLS + aa DEALLOCATE | 
+ 0930 


ay 


; Routine Size: 15 bytes, Routine Base: S$LOCKEDC1$ + vie 


5 
18-Sep-1986 00:46:5 


ao. 


liss 
CJACP 


35 
53 


3 $33 , 1 } ROUTINE LAST_SEGMENT (WINDOW) : NOVALUE = 

; 625 9 § 1 lee 

; 6 § 934 1! 

; ? 8 , 5 : } FUNCTIONAL DESCRIPTION: 

; 629 9 7 13 This routine zaps the Link pointer of the specified window segment 
3 ? 8 3 : } therefore making it the Last segment in the Cathedral window. 
3; 6 ¢ 940 1 ! CALLING SEQUENCE: 

3 e Be} : LAST_SEGMENT (ARG1) 

; 6355 305 1 ! INPUT PARAMETERS: 

3 § 944 1! ARG]: address of the window segment 

; 637 0945 1! 

; 638 Bee 1 ! IMPLICIT INPUTS: 

; 639 947 1! none 

; 640 0948 1! 

; 641 0949 1 ! OUTPUT PARAMETERS: 

3 ak: 0950 1! none 

: 64 0951 1! 

; 644 0952 1 ! IMPLICIT OUTPUTS: 

; 645 0955 1! none 

: 646 0954 1! 

; 647 0955 1 ! ROUTINE VALUE: 

; 648 0956 1! none 

; 649 0957 1! 

; 650 0958 1 ! SIDE EFFECTS: 

; 651 0959 1! none 

3 $26 0960 1! 

; 65 0961 1 !-- 

; 654 0962 1 

; 655 096 BEGIN 

; 656 0964 

; 657 0965 P 

3 038 Boee WINDOW : REF BBLOCK; ! address of the window segment 
; 660 0968 WINDOWCWCBSL_LINK] = 0; 

: 661 0969 

3 666 0970 RETURN; 

; 66 0971 

; 664 0972 1 END; ! end of routine LAST_SEGMENT 


0000 00000 LAST_SEGMENT: : 
- WOR Save nothing 
50 9 AC DO 00002 MOVL BEND OW. RO 
L 
0 AO D4 00006 CLR 32(R0) 
4 00009 RET 


; Routine Size: 10 bytes, Routine Base: S$LOCKEDC1$ + 0035 


665 0973 1 


=32 V4.0-74 
CNTRL.B32; 


J.5 
16-Sep-1984 00:46:5 AX-11 Bliss-32 V4.0-74 Page 20 BAD 
12-908-1 3b 90:38:7 YETTA SReJAcPCATAE  b3o4 . 3 vO4 
; PSECT SUMMARY | 
: Name Bytes Attributes | : 
3 S$CODES 669 NOVEC.NOURT, RD, EXENOSHR, LCL, REL, CON,NOPIC,ALIGN(2) | : 
; SLOCKEDC1S 63 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL CON,NOPIC,ALIGN(2) | : 
| ; 
; Library Statistics | : 
‘To iy oo Laer ke oe Symbols -------- Pages Processing 
: File Total ioaded Percent Mapped Time : 
;  $25S$DUAZB:(SYSLIBILIB.L32;1 18619 36 0 1000 00:01.9 | 3 
| : 
; 
; COMMAND QUALIFIERS : 
4 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:ACPCNTRL/OBJ=OBJ$:ACPCNTRL MSRC$:ACPCNIRL/UPDATE=(ENH$:ACPCNTRL) | : 


; Size: 732 code + 0 data bytes | 
Py Run Time 0: © ; 
3 Elapsed. Tine: 00:52.0 
: Lines/CPU Min: 2 
; yoconee (Putte) 14435 

; Y Used: 231 pages 

3 Compl ation Complete | 
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